home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Simple_Cli20339811302006.psc / Message Box / Module1.bas < prev    next >
BASIC Source File  |  2003-09-14  |  2KB  |  60 lines
  1. Attribute VB_Name = "Module1"
  2.  
  3. Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
  4. Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  5.  
  6. Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
  7.       Public Type NOTIFYICONDATA
  8.          cbSize As Long
  9.          hwnd As Long
  10.          uId As Long
  11.          uFlags As Long
  12.          uCallBackMessage As Long
  13.          hIcon As Long
  14.          szTip As String * 64
  15.       End Type
  16.  
  17.         Public Const NIM_ADD = &H0
  18.    Public Const NIM_MODIFY = &H1
  19.    Public Const NIM_DELETE = &H2
  20.  
  21.      Public Const WM_MOUSEMOVE = &H200
  22.  
  23.     Public Const NIF_MESSAGE = &H1
  24.    Public Const NIF_ICON = &H2
  25.    Public Const NIF_TIP = &H4
  26.  
  27.     
  28.       'Declare the API function call.
  29.  Public Const MAX_PATH = 260
  30. Public MyName As String * 260
  31. Dim nid As NOTIFYICONDATA
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  Public Sub AddIcon()
  38.          
  39.          nid.cbSize = Len(nid)
  40.          nid.hwnd = Form1.hwnd
  41.          nid.uId = vbNull
  42.          nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
  43.          nid.uCallBackMessage = WM_MOUSEMOVE
  44.          nid.hIcon = Form1.Icon
  45.          nid.szTip = Trim(MyName) & vbNullChar
  46.  
  47.          Shell_NotifyIcon NIM_ADD, nid
  48.       End Sub
  49.  
  50.  
  51.  
  52.    Public Sub DeleteIcon()
  53.           Shell_NotifyIcon NIM_DELETE, nid
  54.     End Sub
  55.  
  56. Sub Main()
  57.     Load Form1
  58.     
  59. End Sub
  60.